COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DIAG"
C00004 ENDMK
C⊗;
BEGIN "DIAG"
REQUIRE "GRAHDR.SAI[GRA,HPM]" SOURCE_FILE;

INTEGER FJ,I,J,K,L,M,N; REAL P,Q;
REAL ARRAY X,Y[1:10];

FJ←FILJOB("DSK:FOOD.GFL[DOC,HPM]");

DDINIT; SCREEN(-4/3*1.2,-1.2,4/3*1.2,1.2);

FOR I←1 STEP 1 UNTIL 10 DO
   BEGIN X[I]←COS(2*3.1415*I/10);  Y[I]←SIN(2*3.1415*I/10); END;
FOR I←1 STEP 1 UNTIL 9 DO FOR J←I+1 STEP 1 UNTIL 10 DO LINE(X[I],Y[I],X[J],Y[J]);

LINE(-1.2,-1.2,-1.2,1.2); LINE(1.2,1.2,-1.2,1.2);
LINE(1.2,1.2,1.2,-1.2); LINE(-1.2,-1.2,1.2,-1.2);

TXTPOS(-1.15,-1.17,.07,.14,0,0); TEXTD("This is a sample of text");
TXTPOS(1.17,-1.15,0,0,-.14,.07); TEXT("See how");
TXTPOS(1.17,-1.15+8*.07,0,.05,-.14,.07); TEXTD("clever");
TXTPOS(1.17,-1.15+15*.07,0,0,-.14,.07); TEXT("I am?");

LINE(-1.15,1.05,0,1.05); LINE(-1.15,1.05,-1.15,1.2);
FNTSEL(100,"BASL30");
FNTSEL(101,"BASI30");
FNTPOS(-1.15,1.05,1,1,0,0);
 FNTEXT(0,0,100,"This is a BASL30 test.");
FNTPOS(-1.1,.8,1,1,0,0);
 FNTEXT(0,0,101,"BASI30 test");

INVEN;
FOR Q←-1.2 STEP .4 UNTIL 1.2 DO
FOR P←-1.4,1.4 DO ELLIPS(P-.15,Q-.15,P+.15,Q+.15);
LINE(-1.6,-1.2,-1.6,1.2); LINE(1.6,-1.2,1.6,1.2); DPYUP(-1);

KILJOB(FJ);

END;